home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Network Support Library
/
RoseWare - Network Support Library.iso
/
btrieve
/
btr515.exe
/
PATCH515.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-09-04
|
2KB
|
111 lines
echo off
CLS
echo *** MAKE SURE THAT YOU USE THE ORIGINAL (UNPATCHED) RELEASED VERSION
echo OF THE PRODUCT YOU ARE PATCHING. PATCHING AN ALREADY PATCHED COPY
echo MAY CAUSE UNPREDICTABLE ERRORS.
echo
echo This batch file is for patching VERSION 5.15 products ONLY
echo
IF %1! == ! GOTO PARAM
IF %1 == BTRIEVE GOTO BTRIEVE
IF %1 == BSERVER GOTO BSERVER
IF %1 == BCONSOLE GOTO BCONSOL
IF %1 == RTRNLM GOTO RTRNLM
IF %1 == RTRVAP GOTO RTRVAP
::
IF %1 == btrieve GOTO BTRIEVE
IF %1 == bserver GOTO BSERVER
IF %1 == bconsole GOTO BCONSOL
IF %1 == rtrnlm GOTO RTRNLM
IF %1 == rtrvap GOTO RTRVAP
GOTO PARAM
::
:BTRIEVE
SET FILE515=%1.NLM
SET ORG515=%1.ORG
SET PAT515=BPATNLM.515
GOTO PATCH
::
:BSERVER
SET FILE515=%1.VAP
SET ORG515=%1.ORG
SET PAT515=BPATVAP.515
GOTO PATCH
::
:BCONSOL
SET FILE515=%1.NLM
SET ORG515=%1.ORG
SET PAT515=BPATCON.515
GOTO PATCH
::
:RTRNLM
SET FILE515=BROUTER.NLM
SET ORG515=BROUTERN.ORG
SET PAT515=BPATRTRN.515
GOTO PATCH
::
:RTRVAP
SET FILE515=BROUTER.VAP
SET ORG515=BROUTERV.ORG
SET PAT515=BPATRTRV.515
GOTO PATCH
::
:PATCH
IF NOT EXIST PI.EXE GOTO NOPI
IF NOT EXIST %PAT515% GOTO NOPAT
IF NOT EXIST %FILE515% GOTO NOFILE
IF NOT EXIST %ORG515% REN %FILE515% %ORG515%
IF EXIST %FILE515% DEL %FILE515%
:INPATCH
echo
echo %FILE515% ** PATCHING .............
echo
COPY %ORG515% %1
PI %1 %PAT515%
REN %1 %FILE515%
GOTO FIXDONE
::
:NOPAT
echo
echo CANNOT FIND %PAT515%
GOTO END
::
:NOPI
echo
echo CANNOT FIND PI.EXE
echo
echo The Novell Patch Install Utility (PI.EXE) is required to install
echo the patches for this product. Please copy PI.EXE to the directory
echo you are working in............................................
GOTO END
::
:NOFILE
IF EXIST %ORG515% GOTO INPATCH
echo
echo CANNOT FIND %FILE515%
GOTO END
::
:PARAM
echo
echo THE FORMAT IS:
echo
echo PATCH515 [filename]
echo
echo WHERE [filename] IS: BTRIEVE ........ BTRIEVE.NLM
echo BSERVER ........ BSERVER.VAP
echo RTRNLM ........ BROUTER.NLM
echo RTRVAP ........ BROUTER.VAP
echo
echo
GOTO END
::
:FIXDONE
echo
echo BTRIEVE PRODUCT ** PATCH COMPLETE **
echo
::
:END
SET FILE515=
SET ORG515=
SET PAT515=